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AA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA Ili LLL 
AMA AAA III LLL 
AAAAAAAAAAAAAAA III LLL 
AAAAAAAAAAAAAAA II] LLL 
AAAAAAAAAAAAAAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA IIIIIII11 LLLLLLLLLLLLLLL 
ABR AAA IIIIIIII1 LLLLLLLLLLLLLLL 
AAA AAA IIIIIIII1 
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MAILSDIRECTORY DISPLAY SUMMARY OF EACH MESSAGE 1b. U3 -19 4 4 99: 23: qf AX-11 Bliss-32 V4.0-742 Page 1. 
14-Sep-1984 6 MAIL. SRCIDIRECTORY.B832;1 (1) | 

; 1 0001 MODULE MAILSDIRECTORY( X%TITLE pest LAY SUMMARY OF EACH MESSAGE’ ; 

3 ¢ pole 8 IDENT = ‘V04-000' ) = : 

; B85 1 BEGIN 3 

; 4 004 1 3 

3 5 0005 1! ; 

5 $ sie i pap een yp CeIR Rhee te rE ty ea Bet Ps 

3 '® . ; 

$ 8 0008 1 !* sth he (c) 1978, 1980, 1982, 1984 B * 3 

3 9 0009 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * Ps 

$ 1 Bary ! ~ ALL RIGHTS RESERVED. * ; 

3 ! * 3 

3 \¢ Bog 1 te al SOF TWARE .S FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ba * ’ 

3 1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 

; 14 0014 1 !* | ELUSION OF THE ABOVE COPYRIGHT NOTI 4 THI ARE OR ANY THE * : 

3 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 

$ 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 

3 i Bete ! :* TRANSFERRED. * 

Py .” ® 

$ 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $3 bos) ' r CORPORATION. * 

Py : ® 

; 23 0023 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

ae 0025 1 !* * 

—_— 0026 1 !* * 

: eo? QCO27 1 eee eee eee eR } 

3 28 0028 1! 

i: 39 0029 1 | 

; 0 0030 1 !++ 

; 3 ite : FACILITY: VAX/VMS MAIL UTILITY | 

: 3 0038 ! ; ABSTRACT: DISPLAY A SUMMARY OF EACH MESSAGE IN THE CURRENT FILE. 

: 35 0035 | ENVIRONMENT: NATIVE/USER MODE 

i 2 0037 1 {| AUTHOR: LEN KAWELL, CREATION DATE: 20-JUN-1979 | 

: 39 0039 1 | MODIFIED BY: 

: 40 0040 1! 

; 0041 1! v03-006 ROPOO11 Robert Posniak 20-JUN-1984 | 

: 42 004 1! Correct extraction of sender node/username 

§ > Ope? : ‘ while Listing directory. | 

> 45 045 1: v03-005 BLS0255 Benn Schreiber 28-Dec-1983 

; « 0046 1! Use new global flags. Issue message in dir/folder if 

. ae 0047 1! no folders found. 

s 68 0048 1! 

s 69 0049 1! v03-004 m $0225 Benn Schreiber 17-Jun-1983 

3 2 Boas : } common erase page routine 

: 52 005¢ 1 i v03-003 BLS0222 Benn Schreiber 17-May-1983 

; :7 OpeE : } If message is deleted, clear flags descriptor 

: 55 0055 1: v03-002 BLS0211 Benn Schreiber 13-Mar-1983 

3 2$ Bae$ ' Add support for ISAM mail files, and DIR/FOLDER 
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SUMMARY OF EACH MESSAGE 1b-5¢ opi 1382 99:29:97 «= FANT Bhisse3e 


v03-001 ge 4 eiber fecha 


Benn Schr 982 
Use MAILS$G_OUTCHAR r rather than INPCHAR. Use MAIL$Q_MSG_FNM 
to get mesSage fit filename, paseo than user specified 

a 


' 
! 
! 
} name, which coul logical. 


€ 
be 


4.0-74 
ORY 85341 


a 
MAILSDIRECTORY DISPLAY 
Rivest 


> «646 0063 
> 65 064 
; § 065 
; 6 096 
; 668 99 
> 99 Boe 
; 70 B08 
, 070 
ee 0071 
Se 0217 
; © 0218 
We 8 19 
.: 0 
s 7 0221 
; 0 ¢ 
; i) 

; 80 0224 
on). 0225 
..s 0 $$ 
we. 0227 
; 84 0228 
3; 89 a9 
> 86 0230 
; 87 0231 
; «88 bS3¢ 
2 oF 023 
; 9 0234 
; Fi 0235 
he. 0236 
2 = 0237 
. 0238 
.. 0239 
; 0240 
no oe 0241 
> aseg 
a, 024 
: 100 0244 
; 101 0245 
: 102 0246 
: 103 0247 
: 104 0248 
; 105 0249 
; 106 0250 
3; 107 oS, 
; 108 0252 
; 109 0255 
s 30 0254 
, OT 0255 
s We 0256 


a ed a ed od od dd = 8 dd 
— ~ 


SUMMARY OF EACH MESSAGE 


TABLE OF CONTENTS: 


INCLUDE FILES: 

LIBRARY 'SYSS$LIBRARY:STARLET’; 
REQUIRE 'SRC$:MAILREQ’; 
LIBRARY "LIBS:MAILDEF': 


MACROS: 


EQUATED SYMBOLS: 


; OWN STORAGE: 

OWN 

SENDER: DYN_DE 
SUBJ:  DYNTDE 
DATE: _DYN@DE 
FLAGS_DESC: DY 
EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 


G G 
INFO_I_MSG, 
INFO-MSG, 
PuT_OBuTPUT, 
REET_DX; 
$GL_FLAGS : $BBLOCK, 
t : REF $BBLOCK, 
$Q-CURFOLDER : S$SBBLOCK, 
$0 JWP TRAM : SBBLOCK, 


EXTERNAL 


AX-11 Bliss-32 
MAIL. SRCIDIREC 


Sender descriptor 
Subject descriptor 
Date descriptor 
Message flags 


' Erase the screen 


Get info about next folder 
Find next ISAM message 
Find next message 

Get message tex 

Get current ISAM msg info 
Get current message info 
Put to SYSSOUTPUT ; 
Deallocate dynamic string 


Control flags 

Current message descriptor 
Descriptor of isam folder 
Translation of SYSSINPUT 
Number of Lines per page 
Descriptor of filename 
Current message file name 
Current message file filename 
Current message number 


j 


MAILSDIRECTORY DISPLAY SUMMARY OF EACH MESSAGE 18-$0p=1986 00:50:27 VAK=11 BL iss-32 v4.0-76 6 
yoLtoO eagee= fake $9i23:95 | PARTE BE stabs es 5S, “a 


f ROUTINE ISAM_DIRECTORY (LINESPP,FULL_FLAG) : NOVALUE = 
53 FUNCTIONAL DESCRIPTION: 
2 List a directory of an ISAM mail file 
8 ine 
64 2 BEGIN 
65 
66 2 LOCAL 
67 NUMLINES; 
69 2 NUMLINES = .LINESPP; 
DO BEG! 


N 
IF_ .MAILSL_CURMSG NEQ 0 
THEN BEGIN 


IF NOT Ur gPuLL AE LAG 

MAICSINFO_ I -MSG(0,SUBJ DATE ,FLAGS_DESC 59» SENDER) 
en se mA RAILSINFO- “MSG(0,SUBJ ,DATE,0,0,SENDER) ) 

IF FLAGS DESCLOSCSY LENGTH] NEQ 0 
THEN (MAILSPUT_OUTPUT (MAILSGETMSG(MAIL$_MOREMSG) ,0); RETURN); 


Display summary information 


MAILSPUT -OUTPUT(SDESCRIPTOR('!5UL_ !20AS !12AS !AF'), 
-MAILSL_MSG_NUM,SENDER, 


DA 
MINU(. SUBJCDSC$W -LENGTH),40),.SUBJCDSCSA_POINTER]); 


T(MAILSGET FRSG (RAILS _DIRDEL 10). .AAILSL _AS6_WUM); 


OU 
DX(FLAGS_DESC); 


-~v 
nc 


UT 
EET. 


URN 
IF Not WT RATEDEING I _AS6(0,0, 1) 


a a a ea ee a a ee ee ee ee ee ee ee ee ae ee ee ee ee ee ed od ed ed dd 


OOOO NEW OS ODNO UE WN $9 OD NOA UE WO OONOAOUEWN “OO ONOUSWN—“OOONOUL 
PONDS B&H EHS BANANAMAN BS BEBE EPP EEE EP NNIMNEWAPINININNNDD 2 SS OS OS 


THEN R 
' 

4 If output is to a scope, count lines per page 

04 if -MAILSGL_FLAGSCMAIF_V_ SCOPE] 

05 THEN BEGIN 

06 NUMLINES = .NUMLINES - 1; 

07 IF .FULL_FL 

08 AND <FLAGS -PESCLDSCSu_ LENGTH] NEQ 0 

309 THEN NUMLINES = .NUMLINES- 1; 

310 END 

1 END 

31¢ UNTIL .NUMLINES LEQ 0; 
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v04=000 14- 01384 19:235% MAIL. Re Chi TRee TOR 785801 


: 171 0314 MAILSPUT_OUTPUT (MAILSGETMSG(MAIL$_MOREMSG) ,0); 
5 WZ O33 ; RETURN ~ cetacean 
>... oF 16 END; 


-PSECT S$CODES,NOWRT,2 


41 32 31 21 20 53 41 30 32 21 ¢ »AAB: ASCII \!ISUL !20AS !12AS !AF\ 


-LONG 20 
«ADDRESS P.AAB 
-PSECT SOWNS,NOEXE,2 


00# 00000 SENDER: .BYTE Of2) 
02 OE 00002 -BYTE 14, 2 
00004 -BLKB 4 
00# 00008 SUBJ: -BYTE OC2] 
02 OE OO000A BYTE 14, 2 
b000¢ -BLKB 4 
00# 00010 DATE BYTE 0[2) 
02 OE 00012 BYTE 14, 2 
00014 -BLKB 4 
00# 00018 FLAGS_DESC: 
-—BYTE OC2) 
02 OF OOO1A -BYTE 14, 2 
0001C BLKB 4 
EXTRN MAILSCMD_ERASE, MAILSINFO_FOLDER 
EXTRN MAILSF IND 
EXTRN MAILSFIND-MSG, MAILSGETMSG 
EXTRN MAILSINFO_ G 
EXTRN MAILSINFO_MSG, MAILSPUT_OUTPUT 
EXTRN STRSFREE1-DX, MAILS$GL_FC 
EXTRN MAILSL_CURMSG, MAILS$Q~CURFOLDER 
EXTRN BAIL aS INP TRAN. MAILSC_OUTLINES 
EXTRN MAIL$Q-RD_DESC, MAIL$Q_MSG_FILE 
EXTRN MAIL$Q_-MSG_FNM, MAILSL_MSG_NUM 


-PSECT S$CODES,NOWRT,2 
0OFC 00000 Sea pone teats 


-WORD Save R2,R3,R4,R5,R6,R7 

0 9% 90002 MOVAB MAILSGETMSG, R7 
0 9E 000 MOVAB MAILSL_MSG_NUM, R6 
0 9€ 00010 MOVAB MAILSIRFO T_MSG, RS 
88 MO MAILSPUT guTpyT. R4 

FLAGS_DESC, R 
AC LINESPP, NUMLINES 
90 MAILSL_CURMSG 
6 6$ 
AC FULL_FLAG, 2$ 
A SENDER 
7E =(SP) 


«TITLE MAILSDIRECTORY DISPLAY SUMMARY OF EACH MESSAGE 
- IDENT AvO4=0008 
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MAILSDIRECTORY DISPLAY SUMMARY OF EACH MESSAGE 1b-se =1984 00:50:27 AX-11 Bliss-32 V4.0-742 Page 6 
yourobd 12-88-1382 90:20:47 MAIL. SRCIJDIRECTORY.B32; 1 ° (3) | 
5 po 003A PUSHL 3 ; : 
FB AS OF C PUSHAB DATE : : 
FO OAC F PUSHAB SUBJ : | : 
7E D4 ae CLRL -(SP) : $ 
65 06 Fe 4 CALLS #6, MAILSINFO_I_MSG ; ; 
14 47 BLBS RO, 3$ : : 
4 000A RET : : 
E8 A3 9F 00048 28 PUSHAB SENDER + 0276 : 
7E 7C 0004 CLRQ = =(SP) : : 
FB AS) «OOF 0005 PUSHAB DATE : : 
FO = A3OOF 0005 PUSHAB SUBJ : : 
7E 04 0046 CLRL =(SP) : : 
65 9 44 5 CALLS #6, MAILSINFO_I_MSG s 3 
61 E9 00058 BLBC ‘ : : 
6 83 BOOS 3$: TSTW  FLAGS_DESC + 0278 : 
05 13 0006 BEQL : : 
01 52 D1 0062 CMPL §- NUMLINES, #1 + 0279 : 
76 1B 0006 BLEQU 11$ : : 
F4 a3 pp 0067 4$ PUSHL SUBJ+4 + 0287 ; 
7E FO A C 0006A MOVZWL SUBJ, -(SP) : : 
28 6E B1 00065 CMPW (SP). #40 : : 
03 1B 00071 BLEQU : : 
6E 28 D0 00073 OVL #40, (SP) : ; 
FB AS OF 00076 5$ PUSHAB DATE > 0284 ; 
E8 A3 9F 00079 PUSHAB SENDER : : 
66 DD 0007C PUSHL MAILSL_MSG_NUM + 0285 : 
FF76 CF 9F OOO7E PUSHAB P. + 0284 ; 
64 06 FB 00082 CALLS #6, MAILSPUT_OUTPUT : : 
19 11 00085 BRB 7$ : 0272 : 
66 DD 00087 6$: PUSHL MA LSt MSG_NUM + 0290 ; 
OO7EDDEO 8F DD 00089 PUSHL #8314336 : ; 
67 01 FB OO08F CALLS #1, MAILSGETMSG : ; 
50 DD 00092 PUSHL R : : 
64 0¢ FB 00094 CALLS #2, MAILSPUT_OUTPUT : : 
53 DD 00097 PUSHL R : 0291 | ; 
000000006 00 01 FB 00099 CALLS #1, STRSFREE1_DX : : 
09 08 aC E9 OO0A0 7$: BLBC + 0293 ; 
6 83 OOA4 TSTW  FLAGS_DESC > 0294 ; 
03 13 O00A6 BEQL 8$ : : 
53 DD 0008 PUSHL > 0295 : 
64 4 FB OOOAA CALLS #1, MAIL$PUT_OUTPUT : ; 
39 000000006 00 £8 OOOAD 8$ BLBS § MAILSGL_FLAGS+1, 12$ : 0296 : 
01 DD 00B PUSHL #1 > 0298 : 
43 C 0008 CLRQ. = =(SP) : 
000000006 00 Q re 00B CALLS #3, MAILSFIND_I_MSG : 
2B 0 £9 O000BF 9S: BLBC =E.-s«aRO; : 
0c 000000006 00 04 E1 000C2 BBC #4, MAILSGL_FLAGS, 10$ > 0304 
2 D7 OOOCA DECL § NUMLINES > 0306 
06 08 AC E9 000CC BLBC FULL_FLAG, 10$ : 0307 
63 85 000D TSTW FLAGS_DESC : 0308 
9 13 000D BEQL ; 
D7 00004 DECL § NUMLINES : 9309 | 
5 D> 0 D6 10$:  TSTL §NUMLINES : 0312 | 
03 1 D BLEQ 4=s«3'18 : | 
FF4C 31 OOODA BRW : 
7E D4 OOODD 118: CLRL ahhn, > 0314 | 
OO7EDDCO §=BF_ ODD O00DF PUSHL #8314304 : 


CAILERIAEC TORY DISPLAY SUMMARY OF EACH MESSAGE 1b-5¢ pep- 1386 99: 23: ¢ Are TT Bl iges 52 s¥6 1 B5oe1 Page 4 


ep- MAIL. (3 
67 FB ALLS MAILSGETMSG 5 
a ry hy 
64 FB EA CALLS MAILS$PUT_OUTPUT : 
04 ED 12$: RET ; 0316) 
; Routine Size: 238 bytes, Routine Base: $CODE$ + OOIC 
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V04- 14-Sep-1984 12:42:16 MAIL.SRCIDIRECTORY.B32;1 


GLOBAL ROUTINE MAILSDIRECTORY(FULL_FLAG) : NOVALUE = 
' 


144 
! FUNCTIONAL DESCRIPTION: 


Displays a summary of each of the messages in the current 
message file. 


INPUTS: 
MAILS$SW_MSG_RSIZ 


Wr —OO0ONOu 


WIWNININAWA 


PRD AAA & BS EE ANNA IAIPPIPOPIPONIPUPINON 3 2 
WN" OOONAUES WN $ O OONAUE WN $0 ODNOAOUES WN O CONOULSWN OVO 


= Size of current message record. 
MAILSL_MSG_RADR = Address of current message record. 


OUTPUTS: 
NONE 


BEGIN 
LOCAL 
Pointer 


PTR, 
SENDER_SIZ, Sender size 


INDI) ek at kk kk tk ik kt td th a tt 
ONOULSWN— 


' 
' 
SENDER_PTR, ' Sender pointer 
LAST_SIZ, ' Last size found 
LAST_PTR, ' Last pointer 
$ NUMLINES; ! Number of Lines left on page 
2 : 
3 : Erase the screen and get the number of Lines per page/screen 
06 MAILSPUT_OUTPUT (DESCRIPTOR(' !#e 'AS') ! Display file or folder name 
07 80-(1F .MAIL$GL_FLAGSCMAIF_V_ISA 
08 THEN .MAIL$Q_CURFOLDERCDSC$W_LENGTH] 
09 ELSE .MAIL$Q “ig FNMCOSC$W_LENGTH]), 
CIF RAlLset cL AGS MAI ey-1SAMI 


OL 
ELSE MAILS$Q"MSG_FNM)): 
MAILSPUT_OUTPUT (MAILSGETMSG(MAIC$_DIRHDO)S; 
MAILSPUT~OUTPUT(DESCRIPTOR(' ')); 
NUMLINES"= MAX(.MAILSL_OUTLINES-7,1); 


IF .MAIL$GL_FLAGSCMAIF_V_ISAM) 
THEN BEGIN 
ISAM_DIRECTORY(.NUMLINES, .FULL_FLAG); 
Ae 


Loop, displaying a summary of each message and getting the next one, 
{ the screen is filled or there aren't any more messages. 


nd er A ES ED PD DT PS SN RR ee ee ee 


. 


POTOPINIPONIPINIPININPININPININI NPN fynofnony 


& 


WO OOnNOu 


unti 
0 


BEGIN 
v NOT MAILSINFO_MSG(SENDER, SUBJ ,DATE) 
RETURN; 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 
2 i 
MAILSCMD_ERASE(); 


SOQOOOSOCOOCOOOOCOCOSCOCOOSOOOSOSOOOSSSOSOSOSCOCSCSCSOOCOOCOCOCOOOOCOOOOOOOOOOOOOoOO 


Be Se Oe Se Be Se Ge Ge Fe Se Se Ge Fee Se Se Ge Se Ge Ge Ge Se Ge Ge Ge Fe Ge SF Se oe Se Se Ge Se Ge Se Se Fe Se Ge Ge Se Se ee Se Fe 4 See ee SHS Se Se ee es 


—ODOONOUSWR "OO O0OnNO- NEW 


WIRORONORONONOPONONIND 2 SS 


Rofonofnononopnory 


SNNNOOO 


WAAAAw 


Page 
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; ¢ te } Strip all but the Last node name from the sender's name 

: 234 7 LAST_SIZ = SENDER_SIZ = .SENDER[DSC$W_LENGTH); 

; 5 8 LAST“PTR = SENDER PTR = .SENDERLDSC$A_POINTERJ; 

: 8 WHILE NOT CH FAIL 

; 7 PTR = CHSFIND_SUB(.LAST SIZ, .LAST PTR, 

: 338 9 80 ; - nal ZCHARTOUNT CP ::"T,UPLIT('::"))) 

: 240 0 8¢ 4 SENDER_SIZ = .LAST_SIZ; 

; 261 83 4 SENDER-PTR = .LAST PTR: 

> 24 84 4 LAST_STZ = .LAST_SIZ = (.PTR + XCHARCOUNT('::") = .LAST_PTR); 
; 26 85 4 LAST-PTR = .PTR * XCHARCOUNT('::°); 

: $43 0387 se 

; $78 Be ! Display the summary for this message 

: 248 0390 MAILSPUT_OUTPUT(DESCRIPTOR('!SUL !20AD !12AS !AD"), 

: 349 0391 -MAILSL_MSG_NUM, 

; 250 0398 SENDER_SI2; 

BOB eee: 

: $2 0395 NIN( “SUBJEDSCSY LENGTH],40), 

3; 254 0396 . SUBJCDSC$A_POINTER]); 

> 255 0397 IF_.MAILSGL_FLAGSCMAIF_V_CTRLCFLJ 

BE RB cri 

: 258 0400 IF NOT MAILSFIND_MSG(O) 

s 239 0401 3 TH 4 

; 260 040 ; RETURN; 

3 $06 pete ; } Check if output device is a scope terminal 

; 264 0406 if ,MAILSGL_FLAGSCMAIF_V_SCOPE] 

; $06 o's 4 , NUMLINES = .NUMLINES - 1; ! Decrement number Lines page 
: 268 0410 2 UNTIL .NUMLINES LEQ 0; 

: oop bets ‘ SazUSPUT OUTPUT (FAIL SSE TRSGCAAILS _RORERSS) .0) ! Tell user there is more 


53 41 21 20 2A 23 21 OQO10A P.AAD: .ASCII \!#* !AS\ 
gt -BLKB 
00000007 114 P.AAC: .LONG 
00000000" 00118 »ADDRESS P.AAD 
20 OO11C P.AAF: .ASCII \ \ 
0110 . 3 
4 4 120 P.AAE: .LONG 1 
00g PHO BES o ans: BRP EM 
41 32 31 21 20 44 41 30 32 21 20 re 3 H \ 3 C P.AAI: .ASCIT \!ISUL !20AD !12AS !AD\ 
3 14 0120 P -LONG 20 
00" 00144 «ADDRESS P.AAI 
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+ oe «2 alae DISPLAY SUMMARY OF EACH MESSAGE 
v04-0 


OFFC 00000 


B weaned : ¥ 00 9E 000 § 
A f AF 9E 000 
000000006 00 gad” 6 3 6 1 
51 000000006 00 3 0 EF 1B 
2? 1 52 4 
0 000000006 89 7 7 
50 000000006 98 9E 88 6 1 
DD 2 
92 51 ? 0039 
0 000000006 00 3C¢ 000 
07 11 0004 
50 000000006 00 3C 00045 3$: 
BO AO YF Q004C 4$: 
6E ge CE O004F 
A 0d 00052 
68 03 FB poges 
OO7EDDC8 8F DD 00057 
000000006 00 01 FB 0005D 
90 DD Banos 
01 FB 00066 
OC AA 9F bebe 
68 01 Fe 0006C 
50 000000006 00 07 C3 O006F 
03 14 00077 
50 01 00 00079 
56 50 dO O007C 5$: 
0B 000000006 00 ° 0007F 
04 AC dD 00086 
56 DD 00089 
FE44 =F 02 FB 85086 
04 00090 
59 DD Be ogs 6$: 
F8 AY YF 00093 
FO AY 9F 00096 
000000006 00 3 FB 4444 
5E 0 G? Boag 
58 FO AY 3C OOOA 
57 FAD po Q00A7 
54 57 p Be Ag 
64 55 14 «AA o¢ 3 AE 7$: 
03 13 00084 
53 02 D0 086 
53 02 ¢ B9 8$: 
12 1 BC 
57 23 70 of 
50 54 2 § C 
55 FS A04 E 5 
54 0 AS 7 OOCA 
OF 1 C 
45 A go DO 9$: 
43 F Ad 3C d 
2 6E— 61 000D 


Pryoae Soioste | EMAIL SBtTB ia 


MAIL SOI 1; hei Save R2,R3,R4,R5,R6,R7,R8,~ 
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Sx 
| 


RALLSPOT T OUTPUT, R11 
4. ay 


ee 


io Fata 


ms ts _CURFOLDER, RO 
MAIL$Q_MSG_FNM, RO 
RO 


Ri, 3$ 

mAlLso_ CURFOLDER, RO 

MAIL$Q_MSG_FNM, RO 
-80 (ROY 

(SP), (SP) 

ee WAILSPUT_OUTPUT 

#831431 

i, MAILSGETMSG 

MAILSPUT_OUTPUT 


#1, 
ui. MAIL$PUT_ OUTPUT 


MAILSL_OOTLINES, RO 


RO, NUMLINES 

MAILSGL FLAGS, 6$ 
FLAG 

Ane Bit ES 

#2, ISAM_DIRECTORY 


R9 


heat 
RO’ MAILSINFO MSG 


SENDER, SENDER_S 

SENDER+4 SENDER. PIR 

pr DER_PTR, LAST 
.RAG, LAST te 


i RS 


Past _PTR, SENDER_PTR 
TR, “LAST_PT 


PT R, R 
-2(RO)CLAST -si21, LAST_SIZ 


giR3). LAST_P 
$ 


SUBJ +4 
SUBJ, =(SP) 
(SP), #40 


<3 
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I AAILSGL FLAGS, R1 
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; Routine Size: 


+t bt RECTORY DISPLAY SUMMARY OF EACH MESSAGE 


6E 
0280 


sachet * 2 


B 
i 000000006 
000000006 23 
G2 000000006 00 


FF 


0O7EDDCO 
000000006 00 


68 


OVN10 OC NNOVWMOWN10 NOOO FP OMONvNO 


NO WMOWOALO—--MOonrOo™ ow 


298 bytes, Routine Base: $CODE$ + 0148 


11 
w$ep-1986 Vosaeste — EMATLiSRCDIA 


oe 


— —> 
~ = 
P ay 
os bs 


nn 
Bo & MIs" OD FOw"OoCWoWw 
—S 
Ww 
ad 


WALI NVMVOM 8 FHS PO MBMYWw4O > —— 


» 4 oOMNOOW-VTOMMnOMTOVITIWCO— 
MN 2 SS = 2 COCO TT AMMMMooT 


—_ 
Pa 
bd 


Lm dd 
miu 
On 


1 
15, aft, 


S1Z 
MAIL C <MSG_NUM 
Mae 


MAILSPUT_OUTPUT 
maiuseLe FLAGS+1, 14$ 


#1, MAILSF IND_MSG 

#4, MAILSGL_FLAGS, 12$ 
NUML INES 

NUMLINES 

13$ 

63 

= SP) 

#8314304 

#1, MAILSGETMSG 

#2, MAILSPUT_OUTPUT 


<= 


Pd 


Se Se Se Ge Se Fe Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Be 


vw fF fF oO fF Oo F CO 


ATL ER IMEC TORY DISPLAY SUMMARY OF EACH MESSAGE 
v04= 


; Routine Size: 


1 
1 
1 
1 
1 
1 
1 
se BEGIN 


foloiolo) 
| ee ke ee ee ek ae ee 


POPOPOPIPURY) @ SS Oe 
VEWN—"OOONOUSW 


OSoooooo°oo 


END; 


51 bytes, 


= OUTPUT _HEADER 


: NOVALUE = 


FUNCTIONAL DESCRIPTION: 


Bc Vesae:t6 — UMAILesRedDIA 


hr} 
mus 
On 


s 
DIR 


Output the header for the dir/folder Listing 


MAILSPUT_OUTPUT (MAILSGETMSG(MAIL$_D 
RETURN: OUTPUT (MAILSGETMSG(MAILS_ 


53 000000006 00 9€ 
52 000000006 00 9E 
000000006 00 9F 
QO7EDDDO 8 8F OD 

62 01 FB 
50 0D 

63 02 FB 
OO7EDDDS8 8F DD 

2 01 FB 
50 0D 

63 01 FB 
04 


Routine Base: 


HD1 
RHD 


0 
HD2 


ost 


AIL$Q_RD_DESC); 


000C 00000 OUTPUT_HEADER: 
WORD 


S$CODES + 0272 


: Save R2,R3 

MOVAB MAILSPUT OUTPUT, R3 
MOVAB MAILSGETMSG, R2 
PUSHAB MAIL SQ C 


USHL @# 

CALLS #1, MAILSGETMSG 
PUSHL 

CALLS #2 ss la hii 
PUSHL # 

CALLS #1, MAILSGETMSG 
PUSHL 

a #1, MAILSPUT_OUTPUT 


Page 
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12 
AUER RECTORY DISPLAY SUMMARY OF EACH MESSAGE 1§- -Sep-1984 00:50:27 VAX-1 
v04-00 14-Sep-1984 12:42:16 CMAIL.S 


; OG o% $ GLOBAL ROUTINE MAILSDIR_FOLDER (START_DESC) = 

; 88 o% 8 } FUNCTIONAL DESCRIPTION: 

: $30 3 , ! } Display a Listing of the folders in the current ISAM mail file 
; 29 04 ; 1 ! INPUTS: 

; @& 0435 1! 

> 294 0434 1! START_DESC is a descriptor of the starting folder name 
: 299 0435 1 !-- 

3 296 0436 2 BEGIN 

5 $34 0437 § MAP 

: 298 0435 START_DESC : REF $BBLOCK; 

; 299 0439 é 

: 300 0440 LOCAL 

3; 301 0441 2 SEARCH MODE , 

; 302 0442 2 LISTFLAG : WORD , 

; 303 044 s HEAD FLAG : WORD 

: 304 0444 FOL DERBUE : VECTORCBO. BYTE], 

; 305 0445 2 UFDESC : VECTO LONG 

; 306 D446 3 FOLDER_DESC COBB COEKCESESC _S_BLNI; 

3; 308 0448 é FOLDER_DESCCDSC$W_ LENGTH) = . START_DESCCDSC$W_LENGTH); 

3; 309 0449 FOLDER_DESCCDSC$B_DTYPE] = 0; 

; 310 0450 2 FOLDER-DESCCDSC$B~ CLASS] = 0; 

; 311 0451 2 FOLDER-DESCCDSCSA~P ER] = .START_DESCCDSC$A_POINTER]; 
: 312 0452 2 SEARCH MODE = (FOLDER. “DESC CCDSC$w W_LENGTH) NEQ 0); 

3; 313 0453 2 HEAD FLAG = 0: 

3 314 0454 2 LISTFLAG = 0; 

3; 315 0455 2 BUFDESCLO] = 0; 

; 316 0456 2 BUFDESCL1] = FOLDERBUF 

3: 317 0457 2 WHILE MAILSINFO_ FOLDERCFOLDER _DESC,.SEARCH_MODE) 

; 318 0458 DO BEGIN 

3; 319 0459 3 CHSCOPY(. FOLDER ~PESCCDSCSW LENGTH], .FOLDER_DESCCDSCSA_POINTER],2%C' ', 
; 320 0460 4 CIF” .LISTFLAG 

3; 321 0461 4 THEN @fOLdER DESCCDSC$W_LENGTH) 
3s 322 0462 3 Eb Se FILEKEY+1) ,FOLDERBUFC.BUFDESCL0J)); 
3; 323 0463 4 BUFDESCLO] = .BUFDESCLO) ; rere TTSTEL AG 

3: 324 0464 4 THEN FOLDER DESCCDSCSu_ LENGTH] 
3: 325 0465 3 ELSE MFR_S_FILEKEY+ 

; 326 0466 3 IF .LISTFLAG 

: 327 0467 4 THEN BEGIN 

: 328 0468 4 IF NOT .HEAD_FLAG 

; 363 0469 5 THEN BEGIN 

3 0 0470 § OUTPUT HEADER(); 

; 331 0471 § HEAD_FCAG = TRU E; 

3 32 0472 4 

: 333 047 4 AIL SPU f QUIPUT (BUFDESC) ; 

+ 334 474 4 BUF 

3 335 0475 3 ENDS 

: 336 0476 LIST fi: = LISTE AG XOR 1 

: 3 0477 iF -MAILS$GL_FLAGSCMAIF _V _CTRLCFLI 

; 8 478 THEN EX brit OP; 

: 339 0479 SEARCH_MODE = 

: 340 480 END; 

; 541 0481 

: 342 0482 IF .MAILSGL_FLAGSCMAIF_V_CTRLCFLI 


MAILSDIRECTORY DISPLAY SUMMARY OF EACH MESSA 4 7 -11 Bliss -0- 
+ Yet ESSAGE 16-Sep- 138 99: 23: ; AX=1 trie V4.0-742 Page 


14- oben 984 6 MAIL. sk ay TORY .B32;1 
: 343 485 THEN RETURN TRUE; 
: 344 484 
: 345 485 IF .BUFDESCCLO] NEQ 0 
: 346 486 THEN BEGIN 
; 347 0487 IF NOT HEAD oF LAG 
: 348 0488 THEN (OU TPUT HEADER(); HEAD_FLAG = 1 
; 349 0489 MAILSPUT _OUTPUT (BUFDESC) ; 
; 350 0490 END; 
s 35) 0491 
; 324 049 IF NOT «fea FLAG 
; 35 049 THEN IF T.FOLDER_DESCCDSC$W_LENGTH] EQL 0) 
; $2¢ 0494 NEN SIGNAL (MAILS_FILEMPTY,1,MAIL$Q_RD_DESC) 
; $22 Beoe ELSE SIGNAL (MAIL$-NONEFOUND,2, MAIL$G_RB_DESC,FOLDER_DESC); 
; 357 0497 $ RETURN TRUE 
; 358 0498 1 END; 
OFFC 00000 -ENTRY MAILSDIR FOLDER, Save R2,R3,R4,R5,R6,R7,R8,-; 
5B 000000006 100 9€ 00002 MOVAB MAIL$Q°RD_DESC, R11 : 
5A 000000006 00 9E 00009 MOVAB MAILSPOT OUTPUT, R10 5 
59 BA AF 9E 00010 MOVAB OUTPUT_HEADER, R9 : 
5 AG AE 9E 00014 MOVAB =-92(S : 
50 04 AC DO 00018 MOVL START_DESC, RO : 
7E 60 3¢ 0001C MOVZWL (RO), FOLDER DESC : 
04 AE 04 AO DO O001F MOVL 4(ROS, FOLDER_DESC+4 ; 
50 D4 00024 CLRL R : 
6E BS 00026 TSTW  FOLDER_DESC : 
02 13 00028 BEQL 1$ : 
50 D6 0002A INCL RO : 
58 50 D0 0002C¢ 1$: MOVL RO, SEARCH _MODE : 
56 B4 0002F CLRW HEAD FLAG : 
57 B4 00031 CLRW CFS TFLAG : 
08 AE D4 00033 CLRL  BUFDESC : 
Oc AE 10 AE 9E 00036 MOVAB FOLDERBUF, BUFDESC+4 : 
58 DD 00038 2$: PUSHL SEARCH MODE : 
04 AE 9F 0003D PUSHAB FOLDER-DESC : 
000000006 00 O¢ FB 00040 CALLS #2, MATLSINFO_FOLDER ; 
4A 50 €9 00047 BLBC : 
05 57 59 0004A BLBC LISTELAG 3$ : 
51 6E C 0004D MOVZWL FOLDER nis R1 : 
03 11 00050 BRB 4s : 
51 28 00 90052 3$: MOVL : 
50 10 AE 9E 900) 4s: MOVAB 4 OLbERS ; 
51 20 04 ®BE 6E 2C 00059 MOVC FOL DER ma O FOLDER _DESC+4, #32, R1, - : 
08 BE4O 005F SBUF 3 
05 57 £9 9062 BLBC Mt 3 
50 6— 3C 0006 MOVZWL FOLD ER MBEse® RO ; 
03 11 00068 BRB 6$ : 
50 oe QO6A 5$: MOVL #40, RO j 
08 AE C 9060 6$: ADDL2 RO, BUFDESC : 
1 E9 00071 BLBC LISTFLAG, 8$ ; 
06 56 E8 00074 BLBS -HEAD_FLAG, 7$ : 


: Routine Size: 


+ ae a DISPLAY SUMMARY OF EACH MESSAGE 
v04- 
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SCODES + O2A5 


¢VBi23:46 ERAT! sRedB Tae cron 


At OUTPUT _— 


MAILS$PUT_OUTPUT 
" TFLAG 
MAILS$GL_FLAGS+1, 13$ 
MODE 
L FLAGS+1, 13$ 


LAG, 10$ 
OuTPUT_HEADER 
HEAD_FLAG 


ESC 
ih ie: OUTPUT 


eRta 13$ 
ER DESC 


8314776 
#3, LIBSSIGNAL 
#*M<R11,SP> 


#8314784 
#4, LIBSSIGNAL 
1, RO 


~~ 


oS oOoooooo G00 

SE HESS HFSS 

oOo COVUAINNN NNN O-— 
On YVWONONOS WO wn 


o 
‘> 
co 


CLL LL LL LL CC CL ett tla ue 


+9 «| ata DISPLAY SUMMARY OF EACH MESSAGE 16-Sep-1984 99 28 27 AxX-11 BLi 
v04- 14-Sep-1984 12:42:16 MAIL.SRCJ 
: 360 0499 1 END 
61 0500 0 ELUDOM 

-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
:  SOWNS 32 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,A 
; SCODES 901 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,A 
; Library Statistics 
Bes Ca ees | SRN) We ys aa ee Se yabolg coocecce Pages Processing 
3 File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBISTARLET.L32;1 9776 13 0 581 00:00.7 
; 7$255$DUA28:CMAIL.OBJIMAILDEF.L32;1 457 11 2 26 00:00.2 


; Size: 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:DIRECTORY/OBJ=OBJ$:DIRECTORY MSRC$:DIRECTORY/UPDATE=(ENH$:DIRECTORY) 


811 code + 122 data bytes 
Run Time: 00:09.8 
Elapsed Time: 00:33.6 
Lines/CPU Min: 


pee | Used: 114 pages 
Compilation Complete 


ss-32 V4.0- 
DIRECTORY.B 


apeatt 
LIGN(2) 


742 
32;1 
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